'************************************************************************************************************************
'Description:
'
'This example opens UFT One and configures its Java Settings.
'
'Assumptions:
'There is no unsaved test currently open in UFT One.
'For more information, see the example for the Test.SaveAs method.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.SetActiveAddins Array("Java") ' Load the Java Add-in
qtApp.Launch ' Start UFT One
qtApp.Visible = True ' Make the UFT One application visible

' Configure the Java Settings

' Instruct UFT One to use the Java API for setting JavaEdit objects
qtApp.Test.Settings.Java.EditSet.KeyPressed = False
qtApp.Test.Settings.Java.EditSet.KeyTyped = False
qtApp.Test.Settings.Java.EditSet.KeyReleased = False
qtApp.Test.Settings.Java.EditSet.InputMethod = False
qtApp.Test.Settings.Java.EditSet.FocusLost = False
qtApp.Test.Settings.Java.EditSet.JavaAPI = True

' Instruct UFT One to ignore only the '\r' (carriage return) character.
qtApp.Test.Settings.Java.EditSet.JavaAPICharactersToExclude = "\r"

' Instruct UFT One to perform Drag&Drop operations only using device replay
qtApp.Test.Settings.Java.DeviceReplay.Click = False
qtApp.Test.Settings.Java.DeviceReplay.DoubleClick = False
qtApp.Test.Settings.Java.DeviceReplay.Type = False
qtApp.Test.Settings.Java.DeviceReplay.DragDrop = True

Set qtApp = Nothing ' Release the Application object